home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GEnie HyperLibrary.cpt / GEnie HyperLibrary / card_2922.txt < prev    next >
Text File  |  1988-03-14  |  3KB  |  110 lines
  1. -- card: 2922 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 4361
  5. -- name: Maybe I Want Report
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=489 top=319 right=342 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1013 / 1013
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: go Gotta Get Report
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual dissolve
  23.   go card id 4795
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 5 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=0 top=319 right=342 bottom=23
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 1014 / 1014
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: go Already Have Report
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual dissolve
  43.   go prev
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 6 (field)
  49. -- low flags: 01
  50. -- high flags: 0002
  51. -- rect: left=132 top=319 right=339 bottom=364
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 256
  58. -- line height: 16
  59. -- part name: Report Button
  60. ----- HyperTalk script -----
  61. on mouseup
  62.   answer "Are you sure you want to prepare a report?" with "Yes" or "Cancel"
  63.   if it is "Cancel" then exit mouseUp
  64.   else
  65.     set lockScreen to true
  66.     set cursor to 4
  67.     push card
  68.     go to card 1 of background "library"
  69.     put empty into temp
  70.     repeat for the number of cards-4
  71.       if line 3 of field "chex" ‚↠empty then put field "info" & return & "/\/\/ /\/\/ /\/\/ /\/\/ /\/\/ /\/\/ /\/\/" & return after temp
  72.       go next
  73.     end repeat
  74.     pop card
  75.     put temp into field "report"
  76.   end if
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 7 (button)
  82. -- low flags: 00
  83. -- high flags: 8000
  84. -- rect: left=404 top=151 right=201 bottom=504
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 1007 / 1007
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Print Report
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   get the short date
  96.   put "Maybe I Want Report (" & it & ")"into reprt
  97.   open file reprt
  98.   write field 1 to file reprt
  99.   close file reprt
  100.   answer "Which Word Processor would you like to print with?" with "Word" or "Works" or "Other"
  101.   if it is "Other" then ask "What Word Processor would you like to use?" with "MacWrite"
  102.   if it is "Cancel" then exit mouseUp
  103.   print reprt with it
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part contents for card part 6
  109. ----- text -----
  110. "Maybe I Want" Report